unit Link;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TntStdCtrls;

type
  TLinkF = class(TForm)
    TntLabel1: TTntLabel;
    TntLabel2: TTntLabel;
    TntLabel3: TTntLabel;
    TntEdit1: TTntEdit;
    TntEdit2: TTntEdit;
    TntEdit3: TTntEdit;
    OkB: TTntButton;
    CancelB: TTntButton;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LinkF: TLinkF;

implementation

uses Main;

{$R *.dfm}

procedure TLinkF.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if ModalResult = mrOk then
  begin
    MainF.AA := TntEdit1.Text;
    MainF.AA2 := TntEdit3.Text;
    MainF.AA3 := TntEdit2.Text;
  end;
end;

procedure TLinkF.FormCreate(Sender: TObject);
begin
  TntEdit2.Text := MainF.Memo.SelText;
end;

end.
